(defstruct): Fix :conc-name spec.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bb3c17e7bc54e6d9feb882381719f74f072fbe54..af4e904f0c84eadc797025a96e1ca62ba54e3c85 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2009-06-27  Johan Bockgård  <bojohan@gnu.org>
+
+       * emacs-lisp/cl-specs.el (defstruct): Fix :conc-name spec.
+
 2009-06-27  Chong Yidong  <cyd@stupidchicken.com>
 
        * faces.el (x-handle-named-frame-geometry): Ensure that we have

diff --git a/lisp/emacs-lisp/cl-specs.el b/lisp/emacs-lisp/cl-specs.el
index 4c07bdb7813ca9456acd6c877371b0ea286f8eb6..31a42b1081c6c18a262a8f70fa45c45f4e03df92 100644 (file)
--- a/lisp/emacs-lisp/cl-specs.el
+++ b/lisp/emacs-lisp/cl-specs.el
@@ -292,7 +292,7 @@
    [&or symbolp
        (gate
         symbolp &rest
-                (&or [":conc-name" &or stringp "nil"]
+                (&or [":conc-name" symbolp]
                      [":constructor" symbolp &optional cl-lambda-list]
                      [":copier" symbolp]
                      [":predicate" symbolp]